4 |
How can I fit or ensure that all elements are in the control's client area
With AxSwimLane1 With .Elements .Add("Element A",-500,-500).BackColor = RGB(0,255,0) .Add("Element B",500,500).BackColor = RGB(255,0,0) .Add("Element C",48,24) End With .FitToClient() End With |
3 |
Context Menu - Microsoft Windows 8.1 - Ribbon Like
With AxSwimLane1 .BeginUpdate() With .VisualAppearance .Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn") .Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn") .Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn") .Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn") .Add(17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn") .Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn") .Add(30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn") .Add(31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn") .Add(32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn") .Add(33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn") .Add(34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn") .Add(35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn") End With .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuAppearance,16777216) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolTipAppearance,33488638) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelBackColor,234881024) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarAppearance,16777216) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarBackColor,16777215) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonHotBackColor,201326592) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonDownBackColor,234881024) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuHotBackColor,201326592) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelHotBackColor,587202560) .set_Background(&H2,570425344) .set_Background(&H3,587202560) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exCheckBoxState0,536870912) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exCheckBoxState1,553648128) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exRadioButtonState0,503316480) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exRadioButtonState1,520093696) .EndUpdate() End With |
2 |
Context Menu - Microsoft Paint - Ribbon Like
With AxSwimLane1 .BeginUpdate() With .VisualAppearance .Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn") .Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn") .Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn") .Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn") .Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn") .Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn") .Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn") .Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn") .Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn") .Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn") .Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn") .Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn") .Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn") .Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn") .Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn") .Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn") .Add(17,"CP:16 0 0 0 1") .Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn") .Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn") .Add(20,"CP:19 0 0 0 1") End With .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuAppearance,16777216) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuForeColor,9126421) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelBackColor,234881024) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolTipAppearance,33488638) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarAppearance,16777216) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarBackColor,16777215) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonHotBackColor,218103808) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonDownBackColor,16777216) .set_Background(&H2,218103808) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameSingle,83886080) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHStart,100663296) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHIntermediate,117440512) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHEnd,134217728) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVStart,150994944) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVIntermediate,167772160) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVEnd,184549376) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuHotBackColor,201326592) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelHotBackColor,251658240) .EndUpdate() End With |
1 |
Context Menu - Microsoft Office - Ribbon Like
With AxSwimLane1 .BeginUpdate() With .VisualAppearance .Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn") .Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn") .Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn") .Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn") .Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn") .Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn") .Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn") .Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn") .Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn") .Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn") .Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn") .Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn") .Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn") .Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn") .Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn") .Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn") .Add(17,"CP:16 0 0 0 1") .Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn") .Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn") .Add(20,"CP:19 0 0 0 1") End With .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuAppearance,16777216) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuForeColor,9126421) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolTipAppearance,33488638) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarAppearance,16777216) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarBackColor,16777215) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonHotBackColor,218103808) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exToolBarButtonDownBackColor,16777216) .set_Background(&H2,218103808) .set_Background(&H3,16777216) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameSingle,83886080) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHStart,100663296) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHIntermediate,117440512) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameHEnd,134217728) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVStart,150994944) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVIntermediate,167772160) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuGroupPopupFrameVEnd,184549376) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuHotBackColor,201326592) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelBackColor,234881024) .set_Background(EXSWIMLANELib.BackgroundPartEnum.exContextMenuSelHotBackColor,251658240) .EndUpdate() End With |